﻿Imports System
Imports System.Collections.Generic
Imports System.Collections.ObjectModel
Imports System.Workflow.ComponentModel

Namespace System.Workflow.ComponentModel.Design
    Friend NotInheritable Class TransactionScopeActivityDesigner
        Inherits SequenceDesigner
        ' Properties
        Public Overrides ReadOnly Property Views As ReadOnlyCollection([Of] DesignerView)
            Get
                Dim list As New List([Of] DesignerView)
                Dim view As DesignerView
                For Each view In MyBase.Views
                    Dim c As Type = [TryCast](view.UserData.Item(SecondaryView.UserDataKey_ActivityType),Type)
                    If (((Not c Is Nothing) AndAlso Not GetType(CancellationHandlerActivity).IsAssignableFrom(c)) AndAlso Not GetType(FaultHandlersActivity).IsAssignableFrom(c)) Then
                        list.Add(view)
                    End If
                Next
                Return New ReadOnlyCollection([Of] DesignerView)(list)
            End Get
        End Property

    End Class
End Namespace

